home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 551-575 / disk_570 / gadtoolsbox / source / source.lha / New.c < prev    next >
C/C++ Source or Header  |  1991-11-04  |  4KB  |  108 lines
  1. /*-- AutoRev header do NOT edit!
  2. *
  3. *   Program         :   New.c
  4. *   Copyright       :   © Copyright 1991 Jaba Development
  5. *   Author          :   Jan van den Baard
  6. *   Creation Date   :   25-Oct-91
  7. *   Current version :   1.00
  8. *   Translator      :   DICE v2.6
  9. *
  10. *   REVISION HISTORY
  11. *
  12. *   Date          Version         Comment
  13. *   ---------     -------         ------------------------------------------
  14. *   25-Oct-91     1.00            Reset the program to default.
  15. *
  16. *-- REV_END --*/
  17.  
  18. #include "GTEd.h"
  19. #include "Protos.h"
  20.  
  21. extern struct MemoryChain       *Chain;
  22. extern UBYTE                     MainFontName[ 80 ];
  23. extern struct TextAttr           MainFont;
  24. extern struct Screen            *MainScreen;
  25. extern struct Window            *MainWindow;
  26. extern UBYTE                     MainFileName[ 512 ];
  27. extern UWORD                     MainDriPen[ NUMDRIPENS + 1 ];
  28. extern struct ColorSpec          MainColors[ 33 ];
  29. extern UBYTE                     MainScreenTitle[ 80 ];
  30. extern UBYTE                     MainWindowTitle[ 80 ];
  31. extern struct TagItem            nwTags[ 14 ];
  32. extern struct TagItem            MainSTags[ 12 ];
  33. extern struct ExtGadgetList      Gadgets;
  34. extern UWORD                     ActiveKind;
  35. extern struct Prefs              MainPrefs;
  36. extern BOOL                      Saved;
  37. extern struct NewMenu            Menus[];
  38. extern struct IntuiText         *WindowTxt;
  39. extern BOOL                      ws_InnerW, ws_InnerH, ws_ZoomF, ws_MQueue;
  40. extern BOOL                      ws_RQueue, ws_Adjust, cs_AutoScroll;
  41. extern WORD                      ws_IWidth, ws_IHeight, ws_ZLeft, ws_ZTop;
  42. extern WORD                      ws_ZWidth, ws_ZHeight, ws_MQue, ws_RQue;
  43. extern UWORD                     cs_ScreenType;
  44. extern ULONG                     WindowIDCMP, WindowFlags;
  45. extern UBYTE                     gc_CFile[32], bi_SFile[32], bi_LFile[32];
  46. extern UBYTE                     ga_AFile[32];
  47. extern BOOL                      BreakDRAG;
  48.  
  49. /*
  50.  * --- New
  51.  */
  52. void New( void )
  53. {
  54.     if ( NOT Saved ) {
  55.         AlertUser( TRUE );
  56.         if ( NOT MyRequest( "hey man", "YES|NO", "Changes not saved !\nNew anyway ?" )) {
  57.             AlertUser( FALSE );
  58.             return;
  59.         }
  60.         AlertUser( FALSE );
  61.     }
  62.  
  63.     if ( NOT ScreenSelect())
  64.         return;
  65.  
  66.     strcpy( MainFontName, "topaz.font" );
  67.     MainFont.ta_YSize = TOPAZ_EIGHTY;
  68.     MainFont.ta_Style = FS_NORMAL;
  69.     MainFont.ta_Flags = FPF_ROMFONT;
  70.  
  71.     strcpy( MainFileName, "unnamed.g" );
  72.     strcpy( bi_SFile, "unnamed.g" );
  73.     strcpy( bi_LFile, "unnamed.g" );
  74.     strcpy( gc_CFile, "unnamed.c" );
  75.     strcpy( ga_AFile, "unnamed.s" );
  76.  
  77.     MainDriPen[0]            = ~0;
  78.     MainColors[0].ColorIndex = ~0;
  79.  
  80.     strcpy( MainScreenTitle, "GadToolsBox v1.0 © 1991" );
  81.     strcpy( MainWindowTitle, "Work Window" );
  82.  
  83.     nwTags[0].ti_Data  = 10l;
  84.     nwTags[1].ti_Data  = 15l;
  85.     nwTags[2].ti_Data  = 200l;
  86.     nwTags[3].ti_Data  = 50l;
  87.     nwTags[5].ti_Data |= WFLG_DRAGBAR | WFLG_CLOSEGADGET | WFLG_SIZEGADGET | WFLG_DEPTHGADGET;
  88.     nwTags[5].ti_Data &= ~( WFLG_SIZEBBOTTOM | WFLG_SIZEBRIGHT );
  89.  
  90.     DeleteAllGadgets();
  91.     DeleteTexts();
  92.     FreeNewMenus();
  93.  
  94.     ActiveKind = BUTTON_KIND;
  95.  
  96.     WindowIDCMP = IDCMP_CLOSEWINDOW;
  97.     WindowFlags = WFLG_DRAGBAR + WFLG_CLOSEGADGET + WFLG_SIZEGADGET + WFLG_DEPTHGADGET + WFLG_SMART_REFRESH;
  98.  
  99.     ws_InnerW = ws_InnerH = ws_ZoomF = ws_MQueue = FALSE;
  100.     ws_RQueue = ws_Adjust = cs_AutoScroll = FALSE;
  101.     ws_MQue   = ws_RQue   = 1;
  102.     cs_ScreenType = 2;
  103.  
  104.     BreakDRAG = Saved = TRUE;
  105.  
  106.     ReOpenScreen( 2l );
  107. }
  108.